Unit
lmdctrl

Declaration

TLMDFormDisplayChangeEvent = procedure(Sender:TObject; NewForm:TCustomForm; var Cancel:Boolean) of object;